SET QUOTED_IDENTIFIER ON
GO
SET ANSI_NULLS ON
GO
CREATE PROCEDURE [dbo].[SP_TTESTA_ORIG_Q01]      
/*--------------------------------------------------------------*/      
/*---- Empresa     : OFISIS S.A     ----*/      
/*---- Cliente     : OFISIS S.A     ----*/      
/*---- Sistema     : Ofiteso      ----*/      
/*---- Modulo     : Empresa      ----*/      
/*---- Programa        : Busca el estado anterior de un documento  ----*/      
/*---- Script     :        ----*/      
/*---- Nombre SP    : SP_TTESTA_ORIG_Q01    ----*/      
/*---- Desarrollado por    : Reynaldo Menacho L  ----*/      
/*---- Fecha Creacion    : 13/04/2005    ----*/      
/*---- Base de Datos    : SQL      ----*/      
/*---- Version     : 2000       ----*/      
/*---- Invoca a SP     :        ----*/      
/*--------------------------------------------------------------*/      
/*--------------------------------------------------------------*/      
/*---- Comentarios         :        ----*/      
/*---- Drop Procedure  SP_TTESTA_ORIG_Q01               ----*/      
/*---- Grant ALL on  to public            ----*/      
/*----            ----*/      
/*--------------------------------------------------------------*/      
/*---- Grant Execute On SP_TTESTA_ORIG_Q01 to Public   ---*/      
/*----  Declare @ISCO_ESTA_DOCU TD_VC_003  
  Exec SP_TTESTA_ORIG_Q01 '01', 'P', '20125247149', 'FAC', '0001-0000003235', @ISCO_ESTA_DOCU OUTPUT      
  Select @ISCO_ESTA_DOCU --*/      
/*--------------------------------------------------------------------------*/      
@ISCO_EMPR TD_VC_002,      
@ISTI_ENTI TD_VC_001,      
@ISCO_ENTI  TD_VC_020,      
@ISTI_DOCU TD_VC_003,      
@ISNU_DOCU TD_VC_020,    
@ISCO_ESTA_ORIG TD_VC_003 OUTPUT  
 As  
Declare       
  @VDFE_EMIS TD_DT_001,      
  @VDFE_VENC TD_DT_001,      
  @VSCO_TIAU_CLIE TD_VC_001,      
  @VSCO_TIAU_PROV TD_VC_001,      
  @VSTI_DOCU_LETR TD_VC_003, 
  @VSTI_DOCU_LIQU TD_VC_003
       
 Select @VSTI_DOCU_LETR = TI_DOCU      
 From TTDOCU_CNTB      
 Where ST_DOCU_0006 = 'S'      
      
 Select @VSCO_TIAU_CLIE = CO_TIAU_CLIE, 
		@VSCO_TIAU_PROV = CO_TIAU_PROV		
 From	TMPARA_TESO      
 Where	CO_EMPR = @ISCO_EMPR      
      
 If @ISTI_ENTI = @VSCO_TIAU_CLIE      
   Begin      
     Select Top 1 @ISCO_ESTA_ORIG = CO_ESTA_DOCU  
     From TDKARD_DOCU    
     Where CO_EMPR = @ISCO_EMPR      
     And CO_CLIE = @ISCO_ENTI    
     And CO_TIPO_DOCU = @ISTI_DOCU    
     And NU_DOCU_CLIE = @ISNU_DOCU    
     Order By CO_EMPR, NU_SECU Desc    
  
  If @ISCO_ESTA_ORIG Is Null  
  Select @ISCO_ESTA_ORIG = CO_ESTA_DOCU  
  From TMDOCC_GENE  
  Where CO_EMPR = @ISCO_EMPR      
  And CO_CLIE = @ISCO_ENTI    
  And CO_TIPO_DOCU = @ISTI_DOCU    
  And NU_DOCU_CLIE = @ISNU_DOCU    
    
   End      
 Else      
	Begin      
		Select Top 1 @ISCO_ESTA_ORIG = CO_ESTA_DOCU    
		From TDKARD_DOCP    
		Where CO_EMPR = @ISCO_EMPR      
		And CO_PROV = @ISCO_ENTI    
		And CO_TIPO_DOCU = @ISTI_DOCU    
		And NU_DOCU_PROV = @ISNU_DOCU    
		Order By CO_EMPR, NU_SECU Desc    

		If @ISCO_ESTA_ORIG Is Null  
		Begin
			If @ISTI_DOCU = @VSTI_DOCU_LETR 
				Select @ISCO_ESTA_ORIG = 'ACE'
			Else
				Select @ISCO_ESTA_ORIG = 'ACT'
		End
		
		/*Select @ISCO_ESTA_ORIG = CO_ESTA_DOCU  
		From TMDOCP_GENE  
		Where CO_EMPR = @ISCO_EMPR      
		And CO_PROV = @ISCO_ENTI    
		And CO_TIPO_DOCU = @ISTI_DOCU    
		And NU_DOCU_PROV = @ISNU_DOCU  */  
   End      
      
    
      
/* ---------------------------- Fin -----------------------------------*/


GO
